home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Text / Docu / Cmds (.txt) next >
Encoding:
Oberon Document  |  1995-08-09  |  7.6 KB  |  147 lines  |  [oODC/obnF]

  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. TextRulers.StdRulerDesc
  17. TextRulers.RulerDesc
  18. TextRulers.StdStyleDesc
  19. TextRulers.StyleDesc
  20. TextRulers.AttributesDesc
  21. Helvetica
  22. Helvetica
  23. Helvetica
  24. Helvetica
  25. TextCmds
  26. DEFINITION TextCmds;
  27.     IMPORT Dialog;
  28.         find: RECORD (Dialog.Interactor)
  29.             find: ARRAY 256 OF CHAR;
  30.             replace: ARRAY 256 OF CHAR;
  31.             ignoreCase, wordBeginsWith, wordEndsWith: BOOLEAN;
  32.             FindNext, FindFirst, Replace, ReplaceAndFindNext, ReplaceAll: PROCEDURE
  33.         END;
  34.     PROCEDURE  FindAgain;
  35.     PROCEDURE  FindAgainGuard (VAR par: Dialog.Par);
  36.     PROCEDURE  FindFirst;
  37.     PROCEDURE  FocusGuard (VAR par: Dialog.Par);
  38.     PROCEDURE  InitFindDialog;
  39.     PROCEDURE  InsertDigitSpace;
  40.     PROCEDURE  InsertNBHyphen;
  41.     PROCEDURE  InsertNBSpace;
  42.     PROCEDURE  InsertParagraph;
  43.     PROCEDURE  InsertRuler;
  44.     PROCEDURE  InsertSoftHyphen;
  45.     PROCEDURE  ListAlienViews;
  46.     PROCEDURE  MakeDefaultAttributes;
  47.     PROCEDURE  MakeDefaultRuler;
  48.     PROCEDURE  Replace;
  49.     PROCEDURE  ReplaceAll;
  50.     PROCEDURE  ReplaceAndFindNext;
  51.     PROCEDURE  SelectionGuard (VAR par: Dialog.Par);
  52.     PROCEDURE  ShiftLeft;
  53.     PROCEDURE  ShiftRight;
  54.     PROCEDURE  Subscript;
  55.     PROCEDURE  Superscript;
  56.     PROCEDURE  ToggleMarks;
  57.     PROCEDURE  ToggleMarksGuard (VAR par: Dialog.Par);
  58. END TextCmds.
  59. VAR find: RECORD (Dialog.Interactor)
  60. This is the interactor for the Find
  61. Replace dialog. It allows to specify several options: ignoreCase makes searching insensitive to case, wordBeginsWith restricts searching to the beginning of words, and wordEndsWith restricts searching to the end of words.  wordBeginsWith and wordEndsWith together restrict searching to whole words.
  62. find: ARRAY 256 OF CHAR
  63. The search string.
  64. replace: ARRAY 256 OF CHAR
  65. The replacement string.
  66. ignoreCase: BOOLEAN
  67. Determines whether searching should consider or ignore the case of a letter (small/caps).
  68. wordBeginsWith, wordEndsWith: BOOLEAN
  69. Determine whether searching should be restricted to word beginnings, word endings, or both. The latter case means that a word must match exactly.
  70. FindNext, FindFirst, Replace, ReplaceAndFindNext, ReplaceAll: PROCEDURE
  71. These procedures are assigned their global counterparts below.
  72. PROCEDURE FindAgain
  73. Guard: TextCmds.FindAgainGuard
  74. This command searches for the currently selected text string, starting from the end of the selection. If there is no selection, it searches for the most recently used search string of Find and FindAgain, starting from the caret position.
  75. PROCEDURE FindAgainGuard (VAR par: Dialog.Par)
  76. This guard disables the current menu item if there is no current text selection, and if no string was searched previously, with Find or FindAgain.
  77. PROCEDURE FindFirst
  78. Guard: TextCmds.find.find # ""
  79. Searches for the first occurence of the string find.find. If the string is not found, a beep is emitted.
  80. PROCEDURE FocusGuard (VAR par: Dialog.Par)
  81. This guard disables the current menu item if the current focus is not a text view.
  82. PROCEDURE InitFindDialog
  83. This initialization command sets up the TextCmds.find.find interactor field with the current text selection.
  84. PROCEDURE InsertDigitSpace
  85. Guard: PasteCharGuard
  86. Pastes a digit space, i.e. a space which has the same width as a digit. Whether a digit space has this defined width depends on the font used; some fonts have digits of varying widths.
  87. PROCEDURE InsertNBHyphen
  88. Guard: PasteCharGuard
  89. Pastes a non-breaking hyphen.
  90. PROCEDURE InsertNBSpace
  91. Guard: PasteCharGuard
  92. Pastes a non-breaking space, i.e. a space which cannot be used to break a word.
  93. PROCEDURE InsertParagraph
  94. Guard: PasteCharGuard
  95. Pastes a paragraph character.
  96. PROCEDURE InsertRuler
  97. Guard: PasteViewGuard
  98. Pastes a new ruler, which is set up the same way as the ruler in the same text closest above. If there is no ruler above, the values of the default ruler are taken.
  99. PROCEDURE InsertSoftHyphen
  100. Guard: PasteCharGuard
  101. Pastes a soft hyphen, i.e. a hyphen which only becomes visible if it is used to break a word.
  102. PROCEDURE ListAlienViews
  103. Guard: TextCmds.FocusGuard
  104. Opens a text containing the list of alien views contained in this text.
  105. PROCEDURE MakeDefaultAttributes
  106. Guard: TextCmds.SelectionGuard
  107. Sets the focus text's default attributes to the ones of the current selection in this text.
  108. PROCEDURE MakeDefaultRuler
  109. Guard: SingletonGuard
  110. Sets the focus text's default ruler values to the ones of the currently selected ruler in this text.
  111. PROCEDURE Replace
  112. Guard: 
  113. Replace the previously found occurence of the search string (TextCmds.find.find) by a replacement string (TextCmds.find.replace).
  114. PROCEDURE ReplaceAll
  115. Guard: 
  116. Replace all search strings (TextCmds.find.find) by a replacement string (TextCmds.find.replace), starting from the caret position to the end of the text.
  117. PROCEDURE ReplaceAndFindNext
  118. Guard: 
  119. Replace the previously found occurence of the search string (TextCmds.find.find) by a replacement string (TextCmds.find.replace). Afterwards, try to find the next occurence of the search string.
  120. PROCEDURE SelectionGuard (VAR par: Dialog.Par)
  121. This guard disables the current menu item if the current focus is not a text view or doesn't contain a selection.
  122. PROCEDURE ShiftLeft
  123. Guard: TextCmds.SelectionGuard
  124. This command removes one tab character from the white space at the beginning of each line spanned by the current selection.
  125. PROCEDURE ShiftRight
  126. Guard: TextCmds.SelectionGuard
  127. This command inserts one tab character from the white space at the beginning of each line spanned by the current selection.
  128. PROCEDURE Subscript
  129. Guard: TextCmds.SelectionGuard
  130. This command moves the selected text up vertically, into a superscript position.
  131. PROCEDURE Superscript
  132. Guard: TextCmds.SelectionGuard
  133. This command moves the selected text down vertically, into a subscript position.
  134. PROCEDURE ToggleMarks
  135. Guard: TextCmds.ToggleMarksGuard
  136. This command makes text rulers and paragraph characters visible if they aren't, and hides them if they are.
  137. PROCEDURE ToggleMarksGuard (VAR par: Dialog.Par)
  138. This guard disables the current menu item if the current focus isn't a text view. Furthermore it sets up the correct string of the item (Show
  139. Marks / Hide
  140. Marks).
  141. TextControllers.StdCtrlDesc
  142. TextControllers.ControllerDesc
  143. Containers.ControllerDesc
  144. Controllers.ControllerDesc
  145. Helvetica
  146. Documents.ControllerDesc
  147.